.lsfirst
#echoln "Target is "+Target
#includesrc "<ti83plus.inc>"
t = t
r = t
#define test(blah,param2) blah
#define test(S:blah,param2) .echo blah," was blah and param2 is ",param2
test("lala",3)
;.echoln "r is ",t
;#loaddirective "org.dragonfire.dasm.directives.Export"
#echo "test\n",3+$sin($pi),"\n"
#echoln "test"
.org $4000
testL:
#echoln "PC is ",$hex($)
.fill 32
testL2:
;.echoln "_homeup is ",_homeup
#echoln "PC    is now ",$hex($)
#echoln "Module currently is ",$module
#module "Yaymodule"
#echoln "Module currently is ",$module
#echo "Partial line test..."
#warn "kinda Oh noes!"
;#error "this is bad!"
#define blah "Hello!"
#endmodule
#define blah "Hello2"
#echoln "First is ",blah@Yaymodule," and second is ",blah
#echoln "At first test is ",testL, " and second is ",testL2, " and their difference is ",testL2-testL
#exec "#echoln \"This is an #exec test\""
.push 32
.push $pi+3
.push 44
.push "",3,$month
.echoln $pop-$pop+$pop
.fill $pop,$pop
.fill '@',300
.db 3,54h," HELLO",0
#define CPU CPU.Z80
.echoln CPU
.db forward2-forward
#define test forward2-forward
forward:
.fill 6,6
forward2:
.echoln test
#if CPU==2
#echoln "Working #if"
.else
#echoln "PROBLEMS!!!!1!1!1"
#endif
.dw " @ABC",0,5
thisisavar = "TEST"
.echoln thisisavar
#ifndef "thisisavar"
.echoln "#IFDEF works"
#else
.echoln "NO WORKY!"
.endif
exx
ex de,hl
ex (sp),ix
depth = 42
.module "depthTest"
.echoln "Depth test reads '",depth,"'."
#macro "testMacro"
.echoln "Test Macro Line 1"
.echoln "Test Macro Line 2"
#endmacro
testMacro
#macro "testMacro","name"
.echoln "Hello ",name,"!"
#endmacro
testMacro("Bryan")
ld a,b
ld a,0
ld a,(0)
ld a,($4356)
ld a,$34
ld hl,$1234
ld a,(bc)
out (c),24-24
im 0
im 1
im 2
im 4
im 5
set 7,a
set 10,a
;.tidouble 0,1,2,3,400,60000
ld b,(iy+32)
jr $-1
#macro "app","name"
size = $length(name)
#if size>8
#error "Application names must be less than 9 characters."
#else
.db name
.block 8-size
#endif
#endmacro
bcall(_clrlcdfull)
;b_call(_homeup)
;B_CALL _htimesl

#define par (4+3)*6
#echoln test," is a test"
#define swTest 2
#switch swTest
  #case 3
    .echoln "swTest is 3"
  #case 1+1
    .echoln "swTest is 2"
#endswitch
#echoln "Testing zipread"
#include "test.zip|ziptest.asm"